home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Icon 8.1 / msm-1 / icont.sit / trash.icn < prev    next >
Encoding:
Text File  |  1992-09-19  |  1.3 KB  |  36 lines  |  [TEXT/MPS ]
  1. #
  2. #  This is an ad-hoc program for removing duplicate code in the main switch
  3. #  statement for binary operators (the optimizer should fold these, if
  4. #  the compiler can get that far).
  5. #
  6. #  This program relies on the form of parse.c as presently produced; it is
  7. #  fragile and may need modification for other versions of parse.c.  Look
  8. #  at your parse.c first to see if the template is correct.
  9. #
  10. #  The same thing could be done for N_Unop, but if this works, that will not
  11. #  be necesssary.
  12.  
  13. procedure main()
  14.    template := "{yyval = tree5(N_Binop"
  15.    while line := read () do {
  16.       if not(match(template,line)) then
  17.          write(line)        # copy until "offending member" is found
  18.       else {
  19.          lastline := line    # save it for last case in group
  20.          buffer := []        # push-back buffer
  21.          repeat {
  22.             put(buffer,read())    # "case ..."
  23.             put(buffer,read())    # "# line ...
  24.             line := read()
  25.             if not match(template,line) then {
  26.                write(lastline)    # if not a duplicate, insert the one instance
  27.                while write(get(buffer))    # write out lines pushed back
  28.                write(line)    # write the new line
  29.                break        # break back to the main loop (may be more)
  30.                }
  31.              else while write(get(buffer))  # else write out lines pushed back
  32.              }
  33.           }
  34.        }
  35. end
  36.